home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / toker.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  170 lines
  1. 1 REM COPY ME, I WANT TO TRAVEL!
  2. 3 REM ANN ARBOR, MI. FEB. 1979
  3. 4 GOTO4500
  4. 5 FORI=1TO30:NEXT:RETURN
  5. 70 G=40:H=2:V=83:P=232:S=32:W=102:L0=54272
  6. 90 GETA$,A$,A$:U=1:M=U:K=0:B=K:CO=K:MA=K:HT=K:E=U:RS=INT(RND(1)*185)
  7. 100 GOSUB55000:GOSUB30000:GOSUB45000
  8. 200 FORI=1TO36:PRINTB$(8)+LEFT$(B$(0),I):NEXT:Q=TI
  9. 500 GETA$
  10. 540 IFA$="[136]"THENPOKEL,S:L=L+G
  11. 550 IFA$="[133]"THENPOKEL,S:L=L-G
  12. 560 IFA$="[134]"THENPOKEL,S:L=L-U
  13. 580 IFA$="[135]"THENPOKEL,S:L=L+U
  14. 600 GETA$,A$,A$:PP=PEEK(L):PU=PEEK(L+G)
  15. 610 IFPP=STHENPOKEL,V:POKEL+L0,10
  16. 620 IFPP<>SANDPP<>VTHENGOSUB45000
  17. 630 IFPU=WTHENPOKEL+G,P:POKEL+G+L0,11
  18. 640 IFPU=PTHENPOKEL+G,S:K=K+U
  19. 660 PRINTB$(8)+B$(B):B=B+U:IFB=8THENB=0
  20. 700 T=INT((TI-Q)/30):IFT>M+UTHENPRINT""TAB(37-E)RIGHT$(B$(9),E):M=T:E=E+U
  21. 750 IFE>35THENGOTO15000
  22. 760 IFK=RSTHENGOSUB5000
  23. 770 IFT>1THENHT=INT(100*K/T)
  24. 800 PRINT"";:IFHT<=30THENPRINT" = "
  25. 810 IFHT>30 AND HT<40THENPRINT"[202][192][203]
  26. 820 [139]HT[177][178]40 [175] HT[179]50[167][153]"STR$STR$STR$":CO[178]0
  27. 830 [139]HT[177][178]50[167][153]"(null)(null)(null)WAIT":CO[178]CO[170]U
  28. 850 [139]CO[177]16[167]16000
  29. 900 [139]K[179]37[175]IN[177]0[167]500
  30. 910 [139]MA[177]1[167]3000
  31. 920 R$(0)[178]"":R$(1)[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD":[153]B$(8);"";
  32. 980 [129]I[178]1[164]5:[153]"                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[130]
  33. 1000 [129]I[178]1[164]5:[153]B$(8);R$(0);
  34. 1120 [129]W[178]1[164]2:[153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)";R$(1);"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)";R$(1);:[130]
  35. 1140 [153]B$(8);R$(0);
  36. 1160 [129]W[178]1[164]2:[153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"R$(1);"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)";R$(1);:[130]
  37. 1180 [153]B$(8);R$(0);
  38. 1200 [129]W[178]1[164]2:[153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"R$(1);"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"R$(1);:[130]
  39. 1240 [130]:[153]B$(8);R$(0);"CMD";:T[178]1:[141]50000
  40. 1250 [153]"   (null)(null)CMDONTOTOCMD(null)(null)WAIT       CMD";R$(1);:[141]50000
  41. 1260 [153]"   FNTHEN (null)(null)WAIT       CMDCMD";R$(1);:[141]50000
  42. 1270 [153]" TOTOSTEP(null)TOTO(null)(null)WAITTOTOTOTOTO CMDCMD";R$(1);:[141]50000
  43. 1275 [139]IN[178]0[167][153]"STEPIF YOU WIN...(null)";:[137]1290
  44. 1280 [153]"STEPBRAIN BOOSTER(null)";
  45. 1290 [153]"WAITCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONONONON";:T[178]2:[141]50000:[129]Z[178]1[164]4
  46. 1300 [153]" TOTOCMDCMD (null)(null)WAITCMDCMD (null)(null)WAITCMDCMDTO(null)(null)WAITCMDCMDCMDCMDCMDONONON";
  47. 1310 T[178].4:[141]50000:[130]
  48. 1430 [153]"CMDCMDCMDCMDCMD(null)(null)CMDCMDFNTHENCMDCMDSTEP(null)CMDCMD**ONONONONCMDCMD";
  49. 1450 [129]I[178]1[164]13:[153]"(null)(null)CMDCMDFNTHENCMDCMDSTEP(null)CMDCMD**CMDCMD::ONONONONONCMDCMD";:[130]
  50. 2010 [153]B$(8);"";
  51. 2020 [129]I[178]1[164]10:[153]"(null)ON(null)CMD";:[130]:[153]"**";
  52. 2120 [153]"ONCMDCMDCMD(null)(null)(null)(null)CMDCMDCMDCMDTANSINSINTANCMDCMDCMDCMD(null)(null)(null)(null)";:[141]60000
  53. 2730 [153]"CMDCMDCMDCMDONONONCMD(null) >> RIGHT$CMDCMDCMDCMDCMDCMD<-CMDCMDCMDCMDCMDCMDMID$ == (null)";
  54. 2740 [129]J[178]1[164]5:[141]60000
  55. 2750 [153]"WAITMID$ONCMDRIGHT$ONCMDMID$ONCMDRIGHT$ONCMDMID$ONCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDRIGHT$CMDMID$CMDRIGHT$CMDMID$CMDRIGHT$CMDMID$RIGHT$MID$RIGHT$MID$RIGHT$MID$RIGHT$";
  56. 2760 [141]60000
  57. 2770 [153]"ONCMDMID$ONCMDRIGHT$ONCMDMID$ONCMDRIGHT$ONCMDMID$ONCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDCMDRIGHT$CMDCMDMID$CMDRIGHT$CMDMID$CMDRIGHT$CMDMID$CMDRIGHT$CMDMID$RIGHT$MID$RIGHT$MID$RIGHT$MID$RIGHT$CMDON";
  58. 2900 [130]
  59. 3000 [151]53281,0:[153]"LOAD";B$(8);
  60. 3010 [153]"STEP   (null)WAITCMDCMDCMDCMDCMDCMDCMD  STEPTAB(TAB(TAB((null)CMDCMDCMDCMDCMDCMD(FN@ @THEN)CMDCMDCMDCMDCMDCMDFN / THEN";
  61. 3020 [153]"CMDCMDCMDCMDCMD(null)MID$TAN(null)(null)CMDCMDCMDCMDTAB(TAB(TAB(";
  62. 3030 [139]MA[178]1[167][153]"GOOD TOKE, BUDDY!CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:NX[178]NX[170]U
  63. 3035 [139]MA[178]1[175]E[179]35[167][153]"SUPER TOKER AWARD":NX[178]NX[171]U:SX[178](SX[170]U)[172]IN
  64. 3037 [139]IN[178]0[167][153]"ALL THIS CAN BE YOURS"
  65. 3038 [139]IN[178]0[167][153]"IFCMDCMDTAB(TAB(ON YOU HAVE THE TOUCH."
  66. 3040 [139]MA[177]1[167][153]"YOU WIN, BUT YOU TOOK":OX[178]OX[170]U
  67. 3050 [139]MA[177]1[167][153]"";MA;"MATCHES. CHAMPIONS USE ONECMDCMDCMDTAB(TAB(TAB(ON!
  68. 3070 GETA$,A$,A$:T=1:GOSUB50000
  69. 3100 FORBH=1TO50
  70. 3110 PRINTB$(8);"[213][205]*[206][201][157][157][157][157][157]  @  ";:GOSUB5
  71. 3130 PRINTB$(8);"[169]   [223][146][157][157][157][157][157][169][163][163][163][223]";
  72. 3820 NEXT:IN=1:GOTO70
  73. 4500 PRINT"[147][201][206][211][212][210][213][195][212][201][207][206][211][212]HE OBJECT IS TO CONSUME THE CONTENTS
  74. 4510 [153]"OF THE (null)OKER. LEFT$IT A KEY TO LIGHT MATCH. (null)SE ASC1, ASC3, ASC5 & ASC7 KEYS ";
  75. 4520 [153]"TO MOVE FLAME.     RIGHT$F YOU TOKE TOO FAST, YOU WILL COUGH.
  76. 4530 PRINT"[212]OO SLOW AND YOU WILL RUN OUT OF BREATH.
  77. 4540 [153]"RIGHT$F THE MAN SHOWS HIS TEETH, HE IS ABOUT TO COUGH--SLOW DOWN!
  78. 4550 PRINT"[212]HERE ARE REWARDS FOR THE SUCCESSFUL[160]
  79. 4560 [153]"OPERATOR. (null)LEASE ENJOY YOUR TOKES."
  80. 4700 [161]A$:[139]A$[178]""[137]4700
  81. 4710 [153]"RETURNLOAD":[151]53281,0
  82. 4720 [129]I[178]55296[164]56319:[151]I,1:[130]I:[137]70
  83. 5000 [129]I[178]1[164]5:[151]L[170]G,81:[153]B$(8);"ONONONTAB(TAB(.TAB(TAB(.TAB(TAB(.TAB(TAB(.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON TAB((null)(null)TAB(";
  84. 5020 [153]" (null)TAB( (null) (null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON (null)TO (null)  (null)  (null)(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON .TOTO.TOTO.TOTO. "
  85. 5030 [151]L[170]G,87:[153]B$(8);"ONONONTAB(TAB(.TAB(TAB(.TAB(TAB(.TAB(TAB(.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON TAB((null)(null)TAB(";
  86. 5040 [153]" (null)TAB( (null) (null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON (null)TO (null)  (null)  (null)(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDON .TOTO.TOTO.TOTO. ":[130]
  87. 5090 RS[178]99:[151]L[170]G,S:[153]"";
  88. 5100 [129]Z[178]1[164]4:[153]"            CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";:[130]:[142]
  89. 15000 [153]B$(8);"STEPTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDTHEN          ";
  90. 15020 [153]"    FNCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDWAIT(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAITSTEP";
  91. 15030 [153]"(null)";:[141]5:[153]"CMDCMD(null)";:[141]5
  92. 15040 [129]I[178]1[164]14:[153]"CMDCMDTO";:[130]
  93. 15050 [153]"CMDCMD(null)";:[141]5:[153]"CMDCMDON(null)";:[141]5:[153]"CMDONFNONCMD(null)ON(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)CMDTHEN";
  94. 15060 S$[178]"
  95. 15100 O$(2)="OUT[146] OF[146] BR[146]EAT[146]H!
  96. 15110 O$(0)[178]"OWAITUT WAITOF WAITBREWAITATHWAIT!
  97. 15120 O$(1)="OU[146]T O[146]F B[146]REA[146]TH!
  98. 15250 BX[178]BX[170]U:K[178]0:[129]X[178]1[164]56
  99. 15260 [153]B$(8)[170]S$;O$(K)
  100. 15270 K[178]K[170]U:[139]K[178]3[167]K[178]0
  101. 15500 [141]5:[130]:[161]A$,A$,A$:[137]70
  102. 16000 [153]"ONON";:[129]J[178]1[164]15:[153]"WAIT (null) CMDCMDCMDONONRNDWAIT *CMDCMDCMD";:T[178].1:[141]50000
  103. 16040 [153]"CMDCMDWAIT      CMDCMDCMDCMDONON   CMDCMDCMDONONCOSWAIT LOGCMDCMDCMD";:[141]50000
  104. 16050 [153]"CMDCMDCOUGH!CMDCMDCMDCMDONONWAIT - CMDCMDCMDONONLOGWAIT COSCMDCMDCMD";:[141]50000
  105. 16060 [153]"WAIT (null) CMDCMDCMDONON*WAIT RNDCMDCMDCMD";:[141]50000:[130]:CX[178]CX[170]1:[137]70
  106. 30000 [153]"LOAD  INT    DIAPHRAGM RESERVE CAPACITY    WAIT"
  107. 30020 [153]"  PEEK  !   FN  !   FN  !   FN  !   FN  !  THEN
  108. 30030 PRINT"  0     20     40     60     80    100
  109. 30100 [153]"
  110. 30200 PRINT"      [223]       [169]
  111. 30210 [153]"       (null)     STEP
  112. 30220 PRINT"        [223][162] [162][169]   [167][205]
  113. 30230 [153]"         GETWAIT GET    (null) (null)
  114. 30240 PRINT"        [164]   [146][164]  [206] [206][163]
  115. 30250 [153]"     STEP(null)WAIT(null)    WAIT (null)(null) (null)   (null)COUGH      ";CX
  116. 30260 [153]"     (null)STEP  GETWAIT GET  (null)(null)    (null)BREATH     ";BX
  117. 30270 [153]"     (null)   GETWAIT GET   (null)    (null)OK TOKE    ";OX
  118. 30280 [153]"    THENTAB(TAB(TAB(TAB(GETWAITTAB(GETTAB(TAB(TAB(TAB(FN   (null)ONE MATCH  ";NX
  119. 30290 [153]"    THEN    GETWAIT GET    FN   (null)SUPER TOKER";SX
  120. 30291 [153]"    THEN    GETWAIT GET    FN    TOTOTOTOTOTOTOTOTOTOTOTO "
  121. 30301 [153]"     (null)         (null)        FN     TO TO  "
  122. 30310 [143]PRINT"     (null)         (null)        FN(null)(null)THEN(null) (null) (null)FN "
  123. 30311 [153]"      (null)       (null)         FN(null)(null)THEN(null) (null) (null)FN "
  124. 30320 [143]PRINT"      (null)       (null)         FN(null)(null)THEN(null) (null) FN(null) "
  125. 30321 [153]"       TAB(TAB(TAB(TAB(TAB(TAB(TAB(          FN(null)(null)THEN(null) (null) FN(null) "
  126. 30330 [143]PRINT"       TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  127. 35000 PRINTB$(8);"[145][157][157][166][166][166][166][166][145][166][157][157][166][157][157][166][157][157][166][157][157][166][157][157][166][157][157][166][157][157][145][166][166][166][166][166][166][166][166][166]";
  128. 35010 PRINT"[145][157][157][166][157][157][166][157][157][166][157][157][166][157][157][166][157][157][166][157][157][166][145][166][166][166][166][166][145][157][157][166][157][157][166][157][157][166][145][166]
  129. 35100 [153]"CONT STEP   (null)WAITCMDCMDCMDCMDCMDCMDCMD  STEPTAB(TAB(TAB((null)CMDCMDCMDCMDCMDCMD(FN*WAIT *WAITTHEN)CMDCMDCMDCMDCMDCMDFN / THEN
  130. 35110 PRINT" [205] = [206][157][157][157][157][163][163][163]":RETURN
  131. 45000 PRINT"[157][157][157][157][157][157][157][157][157][157][157][164][164][164][164][164][164][164][164][164]";
  132. 45010 PRINT"[157][157][157][157][157][157][157][157][157][213][192][192][192][192][192][192][192][201][146][205][157][157][157][157][157][157][157][157][157][157][221]HITAKEY[221][146] [165][157][157][157][157][157][157][157][157][157][157][157]";
  133. 45011 PRINT"[221]MATCHES[221][146] [165][157][157][157][157][157][157][157][157][157][157][157][202][192][192][192][192][192][192][192][203][146] [165]";
  134. 45012 PRINT"[157][157][157][157][157][157][157][157][157][157][157][205]        [205][165][157][157][157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163][163]"
  135. 45020 GETA$:IFA$=""GOTO45020
  136. 45030 PRINT"[157][157][157][157][157][157][157][157][157][157][157][163][145][157][157][205][205][145][157][157][157][167][164][145][157][157][167][145][157][167][145][157][167][205][145][157][164][163][157][157][157][157][157][157][157][157][157][157]";
  137. 45050 T=.1:GOSUB50000:PRINT"[145][145][157][157][164][157][157][167][205][164][157][157][157][167][157][167][157][167][186][157][205] [157][163][145][145][145]";:T=1:GOSUB50000
  138. 45070 FORI=1TO5:PRINT"[157][157][195]";:NEXT:PRINT"[157][157][195][195][195][195][195][209][157][157][157][157][157][157][157][195][195][195][195][195][209] ";
  139. 45210 FORI=1TO2:PRINT"[157][157][157][157][157][157][157][157][195][195][195][195][195][209][167]";:NEXT:T=.2:GOSUB50000
  140. 45250 PRINT"[145][145][145] [157][157] [167][205][157][157][157] [157][157][157][157][157][157][157] [195][195][195][195][195][209][157] [167][157] [205][157] ";:GOSUB50000
  141. 45270 PRINT" [145][157][157] [145][157][157]  [145][157][157][157][157][157][157][157][157]  [195][195][195][195][195][209][145][157][157] [145][157]  [145][157]  ";:GOSUB50000
  142. 45280 IFJJ>UTHENJ^2DIDIT=OK
  143. 45290 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]      [157][157][157][157][157][157][195][195][195][195][195][209]";
  144. 45330 FORI=1TO3:PRINT"[157][157][157][157][157][157][157]       [157][157][157][157][157][157][195][195][195][195][195][209]";:NEXT
  145. 45390 FORI=1TO9:PRINT"[157][157][157][157][157][157][157]  [195][195][195][195][195][209]";:NEXT
  146. 45420 PRINT"[157][157][157][157][157][157][157]   [206][145][206][145][157][157]  [206][145][209][157] [145]";
  147. 45440 FORI=1TO10:PRINT"[157][157][157][157][157][157][206] [145][157][206] [145][157][206] [145][157][209][163]";:NEXT
  148. 45460 PRINT"[157][157][209]  [157][157][157][157]-[145][157][205][221]/[157][157]*-[157][205][157][157][221][157][145]";:GOSUB50000
  149. 45470 PRINT"[157] [157][145]   [157] [157] [157][157] [157][145]*[157][157][157][157]";:GOSUB50000
  150. 45480 FORX=1TO6:PRINT"  [145][157][157][157][206]   [145][157][157][157][206]   [145][157][157][157][206]   [145][157][157][157]*[157][157][157][157]";:NEXT
  151. 45510 PRINT" [221][145][157][221][145][157][221] [145][157][157][221]  [145][157][157][157]*";:T=.1:GOSUB50000
  152. 45530 PRINT"[157] [157][157][157]*  [157][157][205] [157][205][157] [205]";:GOSUB50000:PRINT"[157] [145][157][157][157][157][157]*[145][145]  [157][157][195][195][195][195][195] ";
  153. 45570 FORI=1TO3:PRINT"[157][157][157][157][157][157][157]       [145][157][157][157][157][157][157][157][157]*[192][192][192][192][192] ";:NEXT
  154. 45600 FORI=1TO3:PRINT"[157][157][157][157][157][157][157][157]*[192][192][192][192][192] "; :NEXT:GOSUB50000
  155. 47010 PRINT"[150][211][154]      "
  156. 47020 L=1194:MA=MA+U:IFTI-Q>120THENPU=S
  157. 47030 RETURN
  158. 50000 FORX=1TOT*300:NEXT:RETURN
  159. 55000 B$(0)="[192][157][192][157][192][157][192][157][192][157][192][157][192][157][192][157][192][157]O[215][145][215][145]O[145][157]*
  160. 55220 B$(1)[178]"ASCCMDASCCMDASCCMDASCCMDASCCMDASCCMDASCCMDASCCMDASCCMD(null)OON(null)ON(null)ONCMDTAB(ONCMDCMD:::
  161. 55240 B$(2)="[210][157][210][157][210][157][210][157][210][157][210][157][210][157][210][157][210][157][215][215][145]O[145] [145][157][215][145][157][157][157][157][157][157][157][157]:::
  162. 55260 B$(3)[178]"TOCMDTOCMDTOCMDTOCMDTOCMDTOCMDTOCMDTOCMDTOCMDO(null)ON ONOONCMD(null)ONONCMDCMD::
  163. 55280 B$(4)=" [157][163][157][163][157][163][157][163][157][163][157][163][157][163][157][163][157][215] [145][215][145][215][145][157]O[145][145][157][157][157][157][157][157][157]::
  164. 55300 B$(5)[178]" CMDVALCMDVALCMDVALCMDVALCMDVALCMDVALCMDVALCMDVALCMD (null)ONOON(null)ONCMD(null)ONONONCMDCMDCMDCMDCMDCMD::
  165. 55320 B$(6)=" [157][196][157][196][157][196][157][196][157][196][157][196][157][196][157][196]
  166. 55340 B$(7)[178]" CMDLENCMDLENCMDCMDCMD LEN CMDCMDCMDCMDCMDCMD  LEN  CMDCMDCMDCMDCMDCMDCMDCMD   LEN   CMDCMDCMDCMDCMDLENCMDLENCMDLENCMDO
  167. 55360 B$(8)="
  168. 55380 B$(9)[178]"        DIAPHRAGM RESERVE CAPACITY    ":[142]
  169. 60000 [151]53281,8:T[178].2:[141]50000:[151]53281,0:[142]
  170.